|
|
 |
|
|
|
|
75: If Not IsMissing(argListObj) Then
76:
77: 'Eventually, this code needs to be replaced by a list box
class
78: argListObj.AddItem Key Setting & Space(11 + (SPACING - 11))
& Key Value
79: argListObj.AddItem
80: Set objColHdr = argListViewObj.ColumnHeaders.Add(, , Key, _
81: argListViewObj.Width / 3)
82: Set objColHdr = argListViewObj.ColumnHeaders.Add(, , Setting, _
83: argListViewObj.Width / 3)
84: argListViewObj.View = lvwReport
85: For cnt = LBound(localRegSettings, 1) To UBound
(localRegSettings, 1)
86: argListObj.AddItem localRegSettings(cnt, 0) _
87: & Space(Len(localRegSettings(cnt, 0)) +
(SPACING - Len(localRegSettings(cnt, 0)))) & _
88: localRegSettings(cnt, 1)
89: Set objListItem.SubItems(1) =
argListViewObj.ListItems.Add(, , _
90: localRegSettings(cnt, 0))
91: Set objListItem.SubItems(2) =
argListViewObj.ListItems.Add(, , _
92: localRegSettings(cnt, 1))
93: Next cnt
94: Else 'return the list to the caller
95: getAllRegSettings = localRegSettings
96: End If
97: Exit Function
98: getAllRegSettingsErr:
99: MsgBox Please provide the correct Section
100: Exit Function
101: End Function
102:
103: Public Function deleteRegSetting(argAppName As String, _
104: argSection As String, Optional argKey)
105: If Not IsMissing(argKey) Then
106: DeleteSetting argAppName, argSection, argKey
107: Else
108: DeleteSetting argAppName, argSection
109: End If
110: End Function
111:
112: Public Function initializeRegistry()
113: On Error GoTo initializeRegistryErr
114: m_returns = Shell(c:\winnt\regedit.exe, vbMinimizedFocus) 'vbHide)
|
|
|
|
|
|